home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH02.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  384 b   |  13 lines
  1. 10  '**********************************
  2. 20  '**          GRAPH02             **
  3. 30  '**********************************
  4. 40  SCREEN 1:KEY OFF:CLS
  5. 50  A=1:B=100:C=319:D=100
  6. 60  LINE (A,100)-(160,B)
  7. 70  LINE -(C,100)
  8. 80  LINE -(160,D)
  9. 90  LINE -(A,100)
  10. 100  A=A+8:B=B+5:C=C-8:D=D-5
  11. 110  IF C<0 THEN 120 ELSE 60
  12. 120  GOTO 120
  13.